* mouse.el (mouse-on-link-p): Check for scroll bar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c47ca9ff0c9c05a0936a1fdd57e810886cdeb9c8..a28e8b0f0b0cd92d65031c95c8a8234768255347 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-18  Jan Djärv  <jan.h.d@swipnet.se>
+
+       * mouse.el (mouse-on-link-p): Check for scroll bar (Bug#13979).
+
 2013-03-18  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-compat.el (tramp-compat-user-error): New defun.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 51601bca8df679b3042134f3a8d52e5d10853cb9..ea6b1b04de020e54a67a51c083a39d5bccc6ba2e 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -755,7 +755,8 @@ click is the local or global binding of that event.
 - Otherwise, the mouse-1 event is translated into a mouse-2 event
 at the same position."
   (let ((action
-        (and (or (not (consp pos))
+        (and (not (memq 'vertical-scroll-bar pos))
+             (or (not (consp pos))
                  mouse-1-click-in-non-selected-windows
                  (eq (selected-window) (posn-window pos)))
              (or (mouse-posn-property pos 'follow-link)